home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / files / nz18.dms / nz18.adf / BASIC to Hardware / PrinterStatus < prev    next >
Text File  |  1993-12-03  |  629b  |  27 lines
  1. 'Printer status
  2. 'From J.Murphy
  3. 'Enhanced by AJW, NB for this static test, POUT signal is only updated when
  4. 'the printer is switched off and on.
  5.  
  6. PRINT "Printer status check"
  7. PRINT "Switch printer off and on..."
  8. a&=&HBFD*&H1000:REM Address of CIAB
  9.  
  10. start:
  11. LOCATE 20,20
  12. p=PEEK(a&) AND 7
  13. PRINT "Printer ";
  14. IF p=7 THEN
  15.   PRINT "Not Connected           "
  16. ELSE
  17.   IF p=0 THEN
  18.     PRINT "Switched Off            "
  19.   ELSE
  20.     IF (p AND 4) THEN PRINT "Online "; ELSE PRINT "Offline";
  21.     IF (p AND 2) THEN PRINT " PaperOut"; ELSE PRINT " PaperIn ";
  22.     IF (p AND 1) THEN PRINT " Busy   "  ELSE PRINT " NotBusy"
  23.   END IF
  24. END IF
  25. GOTO start
  26.  
  27.